home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / andrew_smith_source / Vumeter.AMOS / Vumeter.amosSourceCode
AMOS Source Code  |  1992-02-26  |  1KB  |  49 lines
  1. ' Vumeter demonstration program - By A. Smith
  2.  
  3. Do 
  4.    Screen Open 0,320,200,2,Lowres
  5.    Curs Off : Flash Off 
  6.    Track Load Fsel$("","","Load a SoundTracker tune",""),6
  7.    Track Play 
  8.    Double Buffer 
  9.    Autoback 0
  10.    Set Rainbow 0,1,4096,"(5,1,1)","(5,-1,1)",""
  11.    Rainbow 0,1,85,256
  12.    Do 
  13.       If Mouse Key=1 Then Exit 
  14.       V0=Vumeter(0)
  15.       V1=Vumeter(1)
  16.       V2=Vumeter(2)
  17.       V3=Vumeter(3)
  18.       Cls 
  19.       If V0<>0
  20.          P0=V0
  21.       Else 
  22.          Add P0,-2
  23.          If P0<0 : P0=0 : End If 
  24.       End If 
  25.       If V1<>0
  26.          P1=V1
  27.       Else 
  28.          Add P1,-2
  29.          If P1<0 : P1=0 : End If 
  30.       End If 
  31.       If V2<>0
  32.          P2=V2
  33.       Else 
  34.          Add P2,-2
  35.          If P2<0 : P2=0 : End If 
  36.       End If 
  37.       If V3<>0
  38.          P3=V3
  39.       Else 
  40.          Add P3,-2
  41.          If P3<0 : P3=0 : End If 
  42.       End If 
  43.       Bar 10,100-P0 To 20,101
  44.       Bar 30,100-P1 To 40,101
  45.       Bar 50,100-P2 To 60,101
  46.       Bar 70,100-P3 To 80,101
  47.       Screen Swap : Wait Vbl 
  48.    Loop 
  49. Loop